 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<h3><?echo $_POST["dir"];?>目录下的检测结果</h3>
<?
//此文件用于快速测试UTF8编码的文件是不是加了BOM，并可自动移除
//By bob 老大
//风吟修改
$目录= str_replace(" ", "|", $_POST["dir"]);//接受提交的路径数据
$basedir="$目录"; //修改此行为需要检测的目录，点表示当前目录
$auto=1; //是否自动移除发现的BOM信息。1为是，0为否。
//以下不用改动
if ($dh = opendir($basedir)) {
while (($file = readdir($dh)) !== false) {
if($file!='.' && $file!='..' &&!is_dir($basedir."/".$file)) echo "filename: $file".checkBOM("$basedir/$file")." <br>";
}
closedir($dh);
}
function checkBOM ($filename) {
global $auto;
$contents=file_get_contents($filename);
$charset[1]=substr($contents, 0, 1); 
$charset[2]=substr($contents, 1, 1); 
$charset[3]=substr($contents, 2, 1); 
if (ord($charset[1])==239 && ord($charset[2])==187 && ord($charset[3])==191) {
if ($auto==1) {
$rest=substr($contents, 3);
rewrite ($filename, $rest);
return ("<font color=red>--Bom 已经清除完毕。</font>");
} else {
return ("<font color=red>--Bom found.</font>");
}
} 
else return ("--没有检查到Bom.");
}
function rewrite ($filename, $data) {
$filenum=fopen($filename,"w");
flock($filenum,LOCK_EX);
fwrite($filenum,$data);
fclose($filenum);
}
?>

<form action="" method="POST">
目录: <input type="text" name="dir" />
<input type="submit" value="检测目录" >
</form>